Option Explicit
'rɮ"wshtest.vbs"
'KbOƥWåH"wshtest.vbs"Wxs
Option Explicit
Dim objXLApp
Dim objXLBook
Set objXLApp = WScript.CreateObject("Excel.Application")
objXLApp.Visible = True
Set objXLBook = objXLApp.Workbooks.Open("|\Q_Sample065.xls")
If IsObject(objXLBook) Then
    objXLBook.Worksheets(1).Cells(1, 1).Value = ""
    If WScript.Arguments.Count > 0 Then
        objXLBook.Worksheets(1).Cells(1, 1).Value = WScript.Arguments(0)
    End If
End If
'HU|N.worksheets(1).cells(1,1).value @޼ƨӨϥ
objXLApp.Run "wshmacro"
objXLBook.Saved = True
objXLBook.Close
Set objXLBook = Nothing
objXLApp.Quit
Set objXLApp = Nothing
WScript.Quit

'ïQ_Sample065.xls.xlsзǼҲ
Sub wshmacro()
    MsgBox Worksheets(1).Cells(1, 1).Value
End Sub
